home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / String Mak244058102001.psc / String Maker / frmMain2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-09  |  3.7 KB  |  129 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm frmMain 
  3.    BackColor       =   &H0080C0FF&
  4.    Caption         =   "String Maker V1.1"
  5.    ClientHeight    =   5595
  6.    ClientLeft      =   165
  7.    ClientTop       =   450
  8.    ClientWidth     =   8400
  9.    Icon            =   "frmMain2.frx":0000
  10.    LinkTopic       =   "MDIForm1"
  11.    ScrollBars      =   0   'False
  12.    StartUpPosition =   2  'CenterScreen
  13.    WindowState     =   2  'Maximized
  14.    Begin Project1.TrayArea TrayArea 
  15.       Left            =   600
  16.       Top             =   1440
  17.       _ExtentX        =   900
  18.       _ExtentY        =   900
  19.       ToolTip         =   "String Maker"
  20.    End
  21.    Begin VB.Menu mnExit 
  22.       Caption         =   "&Exit"
  23.    End
  24.    Begin VB.Menu mnToolbx 
  25.       Caption         =   "&ToolBoxes"
  26.       Begin VB.Menu mnSetup 
  27.          Caption         =   "Setup Panel"
  28.       End
  29.       Begin VB.Menu mnInput 
  30.          Caption         =   "Input String"
  31.       End
  32.       Begin VB.Menu mnOutput 
  33.          Caption         =   "Output String"
  34.       End
  35.       Begin VB.Menu mnusqlcreatetable 
  36.          Caption         =   "SQL CreateTable"
  37.       End
  38.    End
  39.    Begin VB.Menu mnupop 
  40.       Caption         =   "popup"
  41.       Visible         =   0   'False
  42.       Begin VB.Menu mnupopformat 
  43.          Caption         =   "Format a string"
  44.       End
  45.       Begin VB.Menu mnupopcreatetable 
  46.          Caption         =   "Create SQL Table..."
  47.       End
  48.       Begin VB.Menu menusep 
  49.          Caption         =   "-"
  50.       End
  51.       Begin VB.Menu mnupopsmg 
  52.          Caption         =   "String Maker GUI..."
  53.       End
  54.       Begin VB.Menu mnupopexit 
  55.          Caption         =   "Exit"
  56.       End
  57.    End
  58.    Begin VB.Menu mnuHelp 
  59.       Caption         =   "Help"
  60.    End
  61. Attribute VB_Name = "frmMain"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Private Sub MDIForm_Load()
  67. QuickFormatOpen = False
  68. mnupopformat.Enabled = False
  69. frmSetup.Show
  70. frmOutput.Show
  71. frmInput.Show
  72. frmOutput.Top = Me.Height - frmOutput.Height - 1000
  73. frmOutput.Left = Me.Width - frmOutput.Width - 1000
  74. Set TrayArea.Icon = Me.Icon
  75. TrayArea.Visible = True
  76. frmInput.SetFocus
  77. End Sub
  78. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  79. If UnloadMode = vbFormControlMenu Then
  80. Cancel = 1
  81. frmMain.Hide
  82. mnupopformat.Enabled = True
  83. Exit Sub
  84. End If
  85. TrayArea.Visible = False
  86. End Sub
  87. Private Sub mnExit_Click()
  88. TrayArea.Visible = False
  89. End Sub
  90. Private Sub mnInput_Click()
  91. frmInput.Show
  92. End Sub
  93. Private Sub mnOutput_Click()
  94. frmOutput.Show
  95. End Sub
  96. Private Sub mnSetup_Click()
  97. frmSetup.Show
  98. End Sub
  99. Private Sub mnuHelp_Click()
  100. Dim way As String
  101. way = App.Path & "\String maker.txt"
  102. Shell "Notepad " & way, vbNormalFocus
  103. End Sub
  104. Private Sub mnupopcreatetable_Click()
  105. ub Vt"
  106. "BhSub mi2wow
  107. ub VN mnuPrivate Subd8c4lkup.Show
  108. End Sub
  109. Privatr
  110. Private Sub mnuHelp_Click(aker.tx= Subd8c4lkup.Shoemaker.txI= Subd8c4lkup.Shoemaker.t= Subd8c4lkup.ShoemakerSoemaker.t "frmMain"
  111. Attribute VB_G.ShoeSubd8c4lkuShoeSubd8ctxAttribute VBaaerSoemaker.aker.tribute VBaVBat way, vbNormalFocus
  112. End Sub
  113. Endr.aBiute nuHelp_
  114. .e20Bat wigt&V
  115. Endr.aBiute nuHelp_
  116. .e&&V
  117. E:y = App
  118. Endrte nuHelp_
  119. .e&&ute nubopformat.Enabled = False
  120. upopexit 
  121. .e&&nioCvat BSab
  122. Private Sub mnuHelp_C:opformat.Enabled = False
  123. "BhSub mipop
  124. "BhSfa.Icon =GlSub mit
  125. Uoemaop
  126. "BdoBa
  127. Att a.Icon lHelp_C:opformat.Enabled 
  128. Prcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorcgin Vorc
  129.